home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d14
/
demdat.arc
/
STKFO.SBP
< prev
next >
Wrap
Text File
|
1990-06-01
|
3KB
|
172 lines
SBP
╜ STKFO
╜ Maintain Countries/Currencies
╜ Last updated May 14, 90
│ _ wferror
stkfo: ╜ Assign function parameters
cou% 3:cur% 4
╔ µmb%
µcou%
f$ "country":fkey$ "Name.COUNTRY":fmd$ "stko":fmp$ "stko2"
ffld% 4
µcur%
f$ "currency":fkey$ "Currency.CURRENCY":fmd$ "stku":fmp$ "stku2"
ffld% 6
Æ ╔
frow% 10:fst% 0: ┤ £fmd$
floop: ╜ Display from first record
vslimits
ckey$ fstk$
wfform
fpage: ╜ Re-display page
vslimits
ckey$ pstk$(1)
fform: ╜ Display from ckey$
vspage
ífst% p £
fst% 1
fwait: ╜ Wait here for a push button
mp% 0
╩ ╦ss13$
╧ ▀
╜ Edit line
í(mp% 0 mp% lrec%) p wfwait
╩ ╦ss4$
╔ £ "mp%
fnd% 0
ckey$ fkey$$
▀ │
ímb% cur% p öCurrency "mp%
ímb% cou% p öName "mp%,ffld%
í(mb% cou% Name.COUNTRY ckey$) (mb% cur% Currency.CURRENCY ckey$) p
skey$ fkey$$
vsinteg
ífnd% 0 p ╔ £ "mp%:fkey$$ skey$
Æ í
ífnd% 0 p
ímb% cur% p ╩ ╦ss4$: öDescription "mp%,ffld% 1
┬ms1$,"",127,b%
íb% 1 p ╠
Æ í
wfpage
fenter: ╜ Enter new records
ü £
╬
╩ ╦ss3$
▀ │
mp% 1
fenter2:
ö(mp% 1) ffld% 1,ffld%
┬ms1$,"",127,a%
ía% 1 p ╠:mp% mp% 1
┬ms2$,"",130,a%
ía% 0 p wfloop
ímp% frow% p wfenter2 ^ wfenter
fdelete: ╜ Delete record
╩ ╦ss12$
╧ ▀
╔ £ "mp%
ckey$ fkey$$
fnd% 0
vsinteg
ífnd% 0 p
┬ms14$ ckey$,"",119,a%
ía% p
╔ £ "mp%
╔ Ñckey$
╔ ╛
Æ í
Æ í
wfpage
fnext: ╜ Next page
ílstk$ pstk$(lrec%) p wfwait
╔ Ñpstk$(lrec%)
╔ ▒
wfcurr
fprev: ╜ Prev page
ífstk$ pstk$(1) p wfwait
╔ Ñpstk$(1)
¢i% 1 qfrow%
╔ g
▒i%
fcurr: ╜ Assign ckey
ckey$ fkey$$
wfform
fexit: ╜ Exit
ä"menu"
fprint: ╜ Print
┤ £fmp$
╣ Y
┤ £fmd$
wfform
slimits: ╜ fkey$$ gets the contents of the field named by fkey$
╔ b
lstk$ fkey$$
╔ `
fstk$ fkey$$
├
spage: ╜ Displays page of records starting with ckey$
╜ Returns key array and number of records for page
ü £
╔ Ñckey$
j% 0
¢i% 1 qfrow%
═ £ "i%
j% j% 1
pstk$(i%) fkey$$
ífkey$$ lstk$ pi% frow%
íi%
frow% p ╔ ▒
▒i%
íj% frow% plrec% frow% ^lrec% j%
├
sinteg: ╜ check not in use by clients or stocks
╩ ╦ss16$
ímb% cou% p
Ö"clients"
úf$
╔ Ñckey$
í C("") p ┬ms25$,ckey$ " referenced by clients file",100,a%:fnd% 1
Æ í
Ö"stocks"
úf$
╔ Ñckey$
í C("") p ┬ms25$,ckey$ " referenced by stocks file",100,a%:fnd% 1
Öf$
├
ferror: ╜ Error conditions
res% 0
í & 11 p
┬ms21$,ms22$,130,a%: ía% 1 pres% 1
^ í & 57 p
┬ms8$,"",2,a%:res% 2
^
┬ (( &),ms9$,114,a%: ía% 1 pres% 3
Æ í
íres% 1 p y
íres% 2 p yfloop
íres% 3 p yfwait
É